﻿Imports System.Data.OleDb

Public Class frmAccueil

    Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        End
    End Sub

    Private Sub ÀProposDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÀProposDeToolStripMenuItem.Click
        AboutBox1.ShowDialog()
    End Sub

    Private Sub AideToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AideToolStripMenuItem.Click
        MsgBox("C'est ici que nous aurions mit l'aide sur le logiciel si nous avions eu à la faire.")
    End Sub

    Private Sub LocationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LocationToolStripMenuItem.Click
        frmDetailsLocation.ShowDialog(New clsLocation())
    End Sub

    Private Sub FactureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'frmNouvelleFacture.ShowDialog()
    End Sub

    Private Sub ClientToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientToolStripMenuItem.Click
        InscriptionClients.ShowDialog(0)
    End Sub

    Private Sub VéhiculesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VéhiculesToolStripMenuItem.Click
        frmGestionVehicules.ShowDialog()
    End Sub

    Private Sub LocationsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LocationsToolStripMenuItem.Click
        frmGestionLocations.ShowDialog()
    End Sub

    Private Sub VéhiculeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VéhiculeToolStripMenuItem.Click
        frmDetailsVehicule.ShowDialog(New clsVehicule())
    End Sub

    Private Sub OptionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsToolStripMenuItem.Click
        parametre.ShowDialog()
    End Sub

    Private Sub ClientsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientsToolStripMenuItem.Click
        frmGestionClients.ShowDialog(False)

    End Sub

    Private Sub EntreprisesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EntreprisesToolStripMenuItem.Click
        frmGestionEntreprises.ShowDialog()

    End Sub

    Private Sub frmAccueil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        actualiserCategories()
        actualiserOptions()
    End Sub

    Private Sub LisToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LisToolStripMenuItem.Click
        frmGestionListeNoire.ShowDialog()
    End Sub

    Private Sub EntrepriseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EntrepriseToolStripMenuItem.Click
        inscriptionEntreprise.ShowDialog()
    End Sub
End Class
